//-------------Sonic CD R2 1 A CycPal Setup Script---------------//
//-------------------Scripted by Makasinaaaa------------------//
//-------Unpacked By Rubberduckycooly's Script Unpacker-------//

// Aliases
#alias Object.Value0	:	Object.Timer

// Priority
#alias 1	:	PRIORITY_ACTIVE


sub ObjectMain
	Object.Timer--
	if Object.Timer <= 0
		Object.Timer = 5
		RotatePalette(170, 172, 1)
		RotatePalette(97, 99, 1)
		RotatePalette(100, 102, 1)
		RotatePalette(103, 105, 1)
		RotatePalette(106, 108, 1)
		RotatePalette(109, 111, 1)
		RotatePalette(113, 115, 1)
		RotatePalette(116, 118, 1)
		RotatePalette(119, 121, 1)
		RotatePalette(122, 124, 1)
		RotatePalette(209, 211, 1)
		RotatePalette(212, 214, 1)
		RotatePalette(215, 217, 1)
		RotatePalette(218, 220, 1)
		RotatePalette(221, 223, 1)
		RotatePalette(225, 227, 1)
		RotatePalette(228, 230, 1)
		RotatePalette(231, 233, 1)
		RotatePalette(234, 236, 1)
		RotatePalette(237, 239, 1)
		RotatePalette(241, 243, 1)
		RotatePalette(244, 246, 1)
		RotatePalette(247, 249, 1)
		RotatePalette(250, 252, 1)
		RotatePalette(253, 255, 1)
	end if
	
	
end sub
sub ObjectStartup
	Object[19].Type = TypeName[PaletteAnimation]
	Object[19].Priority = PRIORITY_ACTIVE
end sub